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» REM _ 



IDENTIFICATION 



3 
4 

5 PRODUCT CODE: AC-E785D-MC 



16 

|7 PRODUCT NAMES CXRKBDG RK611/RK06, RK07 MOD 



PRODUCT DATE : SEPTEMBER 1978 



21 MAINT AINER t DEC/Xll SUPPORT GROUP 
22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

24 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

25 BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 

26 CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 

27 MAY APPEAR IN THIS MANUAL* 
28 

29 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 

30 PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 

31 SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 

32 COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 

33 OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 
34 

35 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

36 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 

37 NOT SUPPLIED BY DIGITAL. 

38 

39 COPYRIGHT (C) 1976,1978 DIGITAL EQUIPMENT CORPORATION 
4/ 



41 .REM _ 

43 1. ABSTRACT 

44 -„ 

45 

j§ g*? IS kH IQMODX THAT EXERCISES RKO6/RK07 DRIVES ON A 

ll R£§U CONTROLLER. IT EXERCISES THE DRIVES BY DOING WRITES, 

WRITE-CHECKS, READS* AND IN-CORE COMPARISONS. 

II * N r p "^^2 R Li!92EX HfesF ^ ARE 2 0NE back and forth between two ports of the drive, 

|£ ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE TTY. 

5i 2. REQUIREMENTS 
54 

|| HARDWARE? 1 TO 8 RK06/RK07 DISK DRIVES WITH TWO RK611 CONTROLLERS 

U SOFTWARE : LATER REVISIONS OF MONITOR 

£2 11/70 MONITOR I * QAGC 

2V SHORT MONITORS QAED 

£2 STORAGE % t PKB REQUIRES S 

2% 1. DECIMAL WORDS : 2073 

22 2* OCTAL WORDS? 04031 

|| 3* OCTAL BYTES: 10062 

67 

£jj 3, PASS DEFINITION 

21 SINGLE PORT % 

2} ONE PASS OF THE RKB MODULE CONSISTS OF 765 CYCLES OF THE BASIC TEST 

75 §E92i3 c !*M R M5*^RTIS^ 



77 
7Q 
79 



SE QUE NCE (WRITE/ WR I TE-C HECK, READ, DATA-CHECKl _ _ __ _ 
11 WRITES 1024 WORDS/ WRITE-CHECKS SAME, READS THE FIRST 256 WORDS, 

7 * AND DATA-CHECKS SAME* 



DUAL PORT: 



fi CNE PASS OF THE RKB MODULE CONSISTS OF 300 CYCLES OF THE BASIC TEST 

l\ SEQUENCE. A-PORT DOES A WRITE, WRITE-CHECK,READ,DATA COMPARE 

§1 ON THE CUURENT SECTOR (CALLED BLK1 THROUGHOUT PROGRAM) AMD THEN 

11 KFIHS 5kE^ WITH BIT 4 SET IN THE FLAG WORD (THE FIRST WORD OF 

§2 BLOCK ZERO), AND THE SECOND WORD WITH THE CURRENT BLK, 



II A-PORT THE N SITS I N A LOOP, PERIODICALLY READING BLK TO 

2§ SEE IF B-PORT HAS MODIFIED THE FLAG, 

32 B-PORT SITS IN A LOOP WAITING FOR THE FLAG IN BLK ZERO TO 

22 BE WRITTEN WITH BIT4 SET, WHEN IT IS B-PORT PICKS THE CURRENT 

M BLK 09* THIS DATA READ FROM BLK AND GOES TO THAT SECTOR 

2? AND READS THE DATA THAT A-PORT JUST WROTE. THEN B-PORT WRITES 

II PI DATA BACK AND WRITE CHECKS IT. NEXT IT RE-WRITES BLK 

q4 ^JHoS 1 !^ C^ ea S e B AND WITH BIT2 SET f INDICATING TO A-PORT THAT HE IS DOME* 

11 loE°SLJ F SS^R E iS ING BLK SEEING THE FLAGS REVERSED, RE-READS 

II THE DATA WHICH IT HAD WRITTEN AND AGAIN DOES AM IN-CORE COMPARE* 

25 IPS. VERIFIES THE ABILITY OF A-PORT TO RE-READ DATA WHICH 

96 IT HAD ORIGINALLY WROTE BUT THAT HAD BEEN READ AND RE-WRITTEN 



BBoEKf" s i ¥ iI^$ra?o E § " 0DWLE «HU.itMH 52 ' 12 -° CT - 78 16559 " CE « 

|| BY B-PORT. B-PORT DOES NOT DO ANY IN CORE COMPARISONS. 

-|? FAULTY SINCE A-PORT MAS JUST ABLE TO SUCCESSFULLY USE THIS BLI. 

f§l 16 LOCATIONS STARTING AT BADSPT ARE RESERVED FOR ENTRY OF 16 BADSPOTS BY USER 

*81 ON ERROR TYPE OUTS WHICH DUMP THE RK REGRISTERS/ THE LAST ITEM 

1 TYPED "IN^THE TABLE IS THE CURRENT BLK NUMBER. ENTER THIS IiTO 

! 2Hf -. B 1P«W K «X*8*- E «IH- A I°*R *P**5 from known media bad spots. 

i THIS TABLE ONLY MAKES SENSE ON THE A-PORT SIDE SINCE B-PORT 

I ALWAYS GETS ITS BLK ADDRESSES FROM A-PORT. IF YOU MODIFY 

I 1*£*%H1 E Mll^JilUJ^ 3 * U 5I * 0D sectors fo the bad Ilk 

3 TABLE TO AVOID THE ERRORS. FOR EXAMPLE* IF BLK 3474 IS BAD 

? AND YOU DOUBLE THE WRITE TRANSFER SIZE fo 1000 OCTAL BYTES 

YOU^MUST ADD BLK 3473 TO THE TABLE SO THE PROGRAM DOES NO SI 



A TRANSFER THAT WILL EXT END~ON INTO'f Hf KNOWN^BAD BLiU "~ S ™* 

4. EXECUTION TIME 

ONE PISS OF RKB RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 1 MI MUTE « 

5. CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS! 

DEVADRS 177440^ VECTORS 210/ BRlS 5/ DEVCNTS 1 
REQUIRED PARAMETERS: 

NONE 

6. DEVICE/OPTION SETUP 

MAKE CERTAIN THAT ALL DRTYES ARE POWERED UP, WRITE ENABLED/ AND READY 

7. MODULE OPPRATION 

TEST SEQUENCES 

C. GET A DRIVE ADORESS ^ 

D. IP THE NUMBER OF CYCLES IS COMPLETE FOR THIS DRIVE GO TO C 
ELSE/ GET A DISK ADDRESS AND A FRESH BLOCK OF DATA 

k B8 { Sf!p-^|^J5^ s fggpg"p^8 R ? E Z8l{ RtX9 mi iHli lnn 

G. DO I PEAO — TF ERRORS/ REPORT AND RETRY UP TO RETRY LIMIT 

H. 00 A DATA-CHECK — IF ERRORS* REPORT AND CONTINUE 

I. IF END OF PASS/ REPORT AND GO TO C/ ELSE GO TO D 

8. OPERATION OPTIONS 
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Hi 



J94 
19f 



2^0 

m 



153 

154 

155 SRI BIT SET(l) : 

156 IF THE RETRY L IN IT IS EXCEEDED ON ANY FUNCTION, A BIRD ERROR 

157 IS ASSUMED AND THE DRIVE IS DROPPED 

1 59 SRI BIT CLE AR(0 ) t 

1 §9 TF THE RETRV LIMIT IS EXCEEDED, THE FUNCTION IS ABORTED AND 



THE TESTING CONTINUES 



ISE PORT B IN DUAL PORT MODE OF OPERATION 



163 SRI BIT 2 SFT<1): 

1§4 ON ENCOUNTERING A FAD SECTOR ALWAYS PRINT k MESSAGE 

166 SRI BIT 2 CLE AR(0 ) : 

1*2 ON ENCOUNTERING A BAD SECTOR ONLY PRINT A MESSAGE IF 

16R SECTOR IS NOT IN THE BAD SECTOR FILE 

HQ SP1 BIT 4 SFT(l) 
171 WILL EXERC 

172 

173 SRI BIT 4 CLEAR(O): 

lli DUAL PORT WILL EXERCISE PORT A« IN SINGLE PORT THIS 

1^5 BIT MUST BE IN ORDER TO RUN. 

177 SRI BIT 6 SET(O): 

178 WRITE/READ DATA STARTING AT A RANDOM SECTOR 
130 SRI BIT 6 CLE AR (1 ) I 

181 ^RITE/READ DATA STARTING AT EfERY THIRD SECTOR 



SRI BIT 7 SET(l) I 



m 

184 DUAL POST MODE SELECTED 

185 

fS6 SRI BIT 7 CLEARCO ) I 

187 SINGLE PORt MODE SELECTED. 

188 

||| 9. NON-STANDARD PRINTOUTS 

191 

122 MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN 

193 THE DFC/Xll DOCUMENT 



95 B. ERROR MESSAGES DUMP THE CONTENTS OF 13 RK611 REGISTERS 
196 IN THE FOLLOWING ORDER I 

197 

|98 RCS1 RrWC RKBA RKDA RKCS2 RKDS RKER RKASG 

99 RKDC RKECPS RKECPT BLK1 



ERRORS GENERATED IN RfCER 



203 ILF | ILLEGEAL FUNCTION 

204 SKI | SEEK INCOMPLETE 

205 NXF JNQN-EXECTOABLE FUNCTION 

m m ip§^It parity error 

208 DTY > DRIVE TYPE ERROR 
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209 ECH ?E RROR CORRECTION HARD 

?RSF ;rad SECTOR ERROR 

HVP ; HEATER VRC ERROR 

COE /CYLINDER OVERFLOW ERROR 

I PA ;INVALin DISK ADDRESS ERROR 

WLE ;WRITE LOCK 



11 



514 

215 DTE ;DRIVE TIMMING ERROR 

216 OPI ; OPERATION INCOMPLETE 

217 UNS ;DRIVE UNSAFE 

218 DCK ;DATA CHECK 

220 ERRORS GENFPATED TN RKDS 

222 ACL ;DRIVE AC POWER LOW 

223 DCL ;DRIVE DC POKER LOW 

224 DOT ;DRTVE OFF TRACK 
|2| WPL >WRITE LOCK 

||7 ERRORS GENERATED IN RKCS2 

229 UFE ?UNIT FIELD ERROR 

230 MDS } MULTIPLE DRIVE SELECT 

231 PGE ; PROGRAMMING ERROR 

232 NEV ;NON EXISTANT MEMORY 

233 NED ;NON EXISTANT DRIVE 

234 UPE f UNIRUS PARITY ERROR 

WCE ;WRITE CHECK ERROR 

DLT /DATA LATE 



111 



238 ERRORS GENERATED IN RKCSl 
239 

240 CDT ^CONTROLLER DRIVE TYPE 

241 CTO ^CONTROLLER TIMEOUT 

242 CFM /CONTROLLER FORMAT 

243 SPA /SERIAL PARITY ERROR 

244 CEP /CONTROLLER ERROR 



CAUTION: THE RK06 SUBSYSTEM WILL GENERATE TWO (2) INTERRUPTS 
WHEN ISSUED AN EXPLICIT SEEK COMMAND, WHEN NO HEAD 
MOTION IS REQUIRED ONLY ONE INTERRUPT REACHES THE PROCESSOR, 
HOWEVER; ON SYSTEMS THAT HAVE MANY DEVICES BEING 
EXERSTZED THE SECOND INTERRUPT MAY OCCUR WHILE THE MODULE 
IS SERVICING THE FIRST (PRIORITY ZERO) WHICH CAN 
LEAD TO CONFUSSION. 
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. NLIST 

»LIST 



MC/ TTM, CND/ M D 

MF 



. SBTTL CALL MONITOR FOR SETUP 



a a a a a" 9^5522 042102 

060605* 000 



"' m 




40 



blllhl. VERSION 
.LIST BIN 
****************** 



EC/Xll SYS 



EXERCISER MODULE 
AY-78 



*: .ASCII /RKBD / ; MODULE 
I .BYTE OPEN 

177440*0 
?: 210*0 

. BYTE PPTY5+0 
PPTVC+0 



.BYTE 
: O-f-l 
OPEN 
OPEN 
OPEN 
OPEN 

**************** ******** 

150000 
START 
r: MODSP 

rs 

I 765 



OPEN 
OPEN 

8Pfg 

OPEN 

OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 
RESTRT 



»U2 



NAME, 

?USED TO KEEP TRACK OF WBUF*" USAGE 
* ST DEVICE ADDR. 
ST DEVICE VECTOR. 
ST BR LEVEL. 
;2ND BR LEVEL. 
IDEVICE INDICATOR 1. 
; SWITCH REGISTER I 
;SWITCK REGISTER 2 
/SWITCH REGISTER 3 
>SWITCH REGISTER 4 
****#*********#******##sjrft*#&&ftft&iir«*ft»i&&# 
; STATUS WORD. 
} MODULE START ADDR. 
J MODULE STACK POINTER. 
;PASS COUNTER. 

?# OF ITERATIONS PEP PASS=765 

;LOC TO COUNT ITERATIONS 

>LOC TO SAVE TOTAL SOFT ERRORS 

;LOC TO SAVE TOTAL HARD ERRORS 

?LOC TO SAVE SOFT ERRORS PER PASS 

;LOC TO SAVE HARD ERRORS PER PASS 

*8„PE» S X§ ERRORS ACCUMULATED 

; HOLDS RANDOM # WHEN RAND MACRO IS CALLED 

/RESERVED FOR MONITOR USE 

? RESERVED FOR MONITOR USE 

; RE SERVED FOR MONITOR USE 

;LOC TO SAVE PO. 

;LOC TO SAVE Rl. 

lfc8S 18 fill 63: 

;LOC TO SAVE R4. 

;LOC TO SAVE R5. 

?LOC TO SAVE R6. 

; ADDR OF CURRENT CSR. 

;ADDR OF GOOD DATA/ OR 

/CONTENTS OF CSR. 

; ADDR OF BAD DATA/ OR 

? STATUS REG CONTENTS. 

/TYPE OF ERROR 

/EXPECTED DATA. 

? ACTUAL DATA. 

?RE ST ART ADDRESS AFTER END OF PISS 
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MACYll 30A(1052) 12-OCT-78 
CALL MONITOR FOP SETUP 



WDTO: 

wdfr: 
intr: 
idnum: 
rbufva: 

RBUFPA ! 
RBUFEA : 
RBUFSZ: 
WBUFPA: 
WBUFEA: 

wbufrq: 

WBUFS7 ! 
COERCT: 

cdwdct: 

FREES 

modsp: 



OPEN 

OPEN 

OP EH 

124 

FBUF 

OPEN 

OPEN 

256. 

OPEN 



OPEN 
OPEN 
OPEN 
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? WORDS TO MEMORY PER ITERATION 
} WORDS FROM MEMORY PER ITERATION 
;* OF INTERRUPTS PER ITERATION 

; module identification number=124 
;read buffer virtual address 

;READ BffFFER PHYSICAL ADDRESS 
; READ BUFFER EA BITS 
?SI7E OF THE READ BUFFER 
?WRITE BUFFER PHYSICAL ADDRESS 
;WRITE BUFFER EA BITS 
; WRITE BUFFER SIZE REQUESTED 
? WRITE BUFFER SIZE AVAILABLE 
JCDATA/DATCK ERROR COUNT 
JCDATA/DATCK WORD COUNT 
; RESERVED FOR FUTURE USE 



****«^***************************************^ 
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SBTTL CONSTANTS AND STORAGE 



; BAD SPOT TABLE* 
5 p LOCr^NyMBER^_IS 



PUT IN THE OCTAL 
IN ERROR TYPEOUTS 



765 
300 

256. 



.._ SHOWN 

?OF KNOWN BAD BLOCKS. 
;THERSE-S ROOM FOR 16. 
;BLK IS NEVER CONSIDERED BAD 
I IF YOURS IS, YOU CANNOT RUN THIS PROGRAM 
;GO FIND ANOTHER PACK AND TRY AGAIN 



;flag which is passed back betwen ports 

;drtve available timer 

j holding location for cylinder addr n 

;times out a port 

;de sired cylinder 
;oesired track 

; repetition count 

;end of pass counter 
Jdesired function 
;extended memory bits 
^current selected drive number 

JAVAILABLE DRIVES 
JCURRENT SELECTED DRIVE 

COUNTER 
;ITERATIQN COUNT 

;WORD COUNT FOR READS 



JINPUT BUFFER 
;TIMEOUT CLOCK 



RKECPT: 



;TIMEOUT CLOCK 
;SOFT ERROR FLAG 
; INTERRUPT EXPECTED FLAG 
^CONTROLLER STATUS REGISTER 
?WORD COUNT (2'S COMPLEMENT) 
5 BUS ADDR (LOW 16 BITS) 
JTRACK AND SECTOR ADDR 
;CONTR AND STATUS REG 2 
f DRIVE STATUS REG 

terror reg 
> attention reg 
/cylinder addr 
;ecc bad bit location 
?ecc pattren 



1I88do. 

ill 
W 



P 

398 
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mm- mm 

053057 

004070 
001430* 000016 

mm- mm 



01474' 0074' 



66^414* 



8!W 



506 
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77 



BLK1 



ERHARD=BIT0 SBIT1 IRIT2 f BIT3 I9IT5 !BIT9 f BIT10 !BIT12!PI?14 
S1HARD = RIT10»PIT1HRIT12! PIT13 

S2HARD = FITMBIT9?PIT10!RIT11 I8IT12IBIT13 IRITIS 
DSHARD=BIT3I BIT4IBIT5 fPITll 



ERBUF: 



CNTRl: 
CNTR2: 

drp: 



. PL*W 



16 



DRVE 
NUMB 
DRPED 
DRPMSG: 
-1 

hsrd: 

numb: .word o 

RETRY: C 



|EC£XH S¥STEM_EXERCISER MODULE 
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§10' 

312* 



...... mm- 

001520" 001552' 

itt m ii-: 
' iP PI 

iilS* ?77?77 
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TABLE ! 



SVCS1 

SVWC 

SVBA 

SVDA 

SVCS2 

SVDS 

SVEP 

SVASOF 

SVDC 

SVECPS 

SVECPT 

BLK1 

177777 



SVCS1: 

SVSC2 
SVB&5 
SVDA: 

SVCS2? 

svds : 

SVERS 
SVASOF? 
SVDC: 
SVECPSS 
SVECPT : 



% HOUSEKEEPING COMMANDS 

;IF RK07 DRIVE IS SELECTED, THE 

?IF RK06, MUST BE RESET 



?END OF TABLE INDICATOR 

; SAVE OF CONTROLLER STATUS REGISTER 

?SAVE OF WORD COUNT (2'S COMPLEMENT) 

;SAVE OF BUS ADDR (LOW 16 BITS) 

?SAVE OF TRACK AND SECTOR ADDR 

;SAVE OF CONTR AND STATUS REG 2 

;SAVE OF DRIVE STATUS REG 

?SAVE OF ERROR REG 

?SAVE OF ATTENTION REG 

;SAVE OF CYLINDER ADDR 

;SAVE OF ECC BAD BIT LOCATION 

?SAVE OF ECC PATTREN 



BIT10 OF EACH COMMAND MUST BE SET 




UNLOAD % 
SELDRV : 
SPINDL: 

CLRDRVf 

disint: 
clrctr: 

RECALX: 

packac: 

RKFLG: 



• WORD 

• WORD 

s MORD 

• WORD 
*WORD 
a MORD 
« WORD 

• WORD 
. WORD 



1 

#BIT15!Pf T6 
|j}IT15 

3" 




J UNLOAD COMMAND 
^SELECT A DRIVE 
; STARTS THE spindle 
/CLEAR THE DRIVE 

?CLEAR CCER ERROR WITH INTERRUPT DISABLE 

/CLEAR CONTROLLER ERROR 

/RECALIBRATE 

;PACK ACKNOWLEDGE 

/SOFTWARE RKD6 £ RK07 FLAG 

?RIT10=1 IF RK07, RESET IF RK06 



RKBD DEC/XU 
XRKBDO.Pll 



SYSTEM EXE 

12-OCT-78 



331 



Y- Vt 



2767 



ik- . 

642" 012767 




104413 
002012* 000740 



RCISEP MODULE 

'2:98 



MM 

mm 

m 

176460 
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176414 



000001 176316 
176346 

000006 

000000 * 



START: 
RESTRT: 

LOOPl: 

LOOP 2: 
LOOP 3: 
LOOP4: 

2$s 



• SPTTL 

MOV 

MOV 

MOV 

MOV 

MOV 

m 



JSP 

JSR 
BP 

BIC 
1ST 
fiHE 
JMP 

ENDITS, 

PR 



MAIN LOOP 
lf3072.,WDFR 
|l536.,WDTO 
ft? • , 1 NTR 



RBUF52 
WCNT2 
CRT 

iNjFLG 
-I* DSKADR 

WRUFSZ,WCNT1 
WCNT1 

PC^NXTORV 




91 sFLAG 
MICE 

ENTEST 
BEGIN 
LOOPl 



? ST ART AT BLOCK (SECTOR) 
;SET 1ST TIME FLAG BIT 

iCHECff ILL DRIVES 

JRESTOR5 STACK 
I GET P 



;SIZE OF READ BUFFER 

J RE SET END-QF-PASS 
CLEAR EXPECTED 



HYSICAL ADDRESS FROM 16«8Sf 



RBUFVA 



jCLtl 

$ INITIALIZE DRIVE 

UNITIALIZE DRfVE ADDRESS 



SS COON 
INTERRU 
E COUNT 



IDNTER . 

— Pf FLAG 



?cg.picf T | 



J GET NRITf_§b|pER _II!FORWAfION 



|SAVE WRITE BffFFER SIZE 
?GO PIC* A DRIVE 

;DO IT TO NEXT DRIVE 

ICLEAR FIRST TIME FLAG 

s«n?w T ™ cmc * 7 

•?LSE DROP MODULE 

ISIGNAL END OF ITERATION. 
MONITOR SMALL TEST END OF PASS 
JBR BACK IF NO 



482 002014* 

483 002014* 104403 000000* 001476 

484 002022* 104410 000000* 



entest: 



MSGN$,BEGIN,DRPMSG 

END$,BEGIN 



} ASCII MESSAGE CALL WITH COMMON HEADER 
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032767 000020 
1374 




13l_ 
004767 
032767 

000207 



0000*2 



001516 
000002 



175762 
176246 



000126* 
175714 



176250 
176244 



176164 



CYCLE : BIT 

BNE 
BIS 
JSR 
JSP 
JSP 

JSR ri#KtAu 
CDATA$, BEGIN, RBUFPA 

PIT *PIT7,SR1 

BEQ 5? 



#2C, SRI 

CYCLER 

M,FLAG 

PC,BLKADR 

PC, WRITE 

PC,WRITCK 

PC £ READ 



?B-PORT? 

?BR IF SO* ELSE DO A-PORT 
fSET THE A-PORT FLAG 
;CONVERT BLK TO DISK ADDR 
;GO WRITE A BLOCK 
?GO DO WRITE CHECK 
;GO READ A BLOCK 

; REQUEST FOR MONITOR TO CHECK DATA 
} IF ERROR, CONTINUE 
} SINGLE PORT? 
; YES-GET OUT 



;NOW UPDATE BLOCK FOR R-PORT*S INFORMATION 



3$: 
4s: 



JSP 
MOV 
MOV 
JSP 
MOV 
JSR 
DFC 
BNE 
JSP 

RTS 
MOV 



PC,CLPRB 

FLAG/RBUF 

BLKl^PBUF+2 

PC f WRTOO 

#5C000, TIMER 

PC,PELEASE 

JIMER 

pLdrop 

PORTHG 



$5, 



RC 



BREAKS, BEGIN 
BREAKS, BEGIN 



176154 
C00126* 



DEC RO 

BNE 4$ 

JSR PC,RD00 

BIT #2,RBUF 

BEO i! 

JSR PC, RE AD 
CD ATA $, BEGIN, RBUFPA 
• +2 

5$: RTS PC 



/CLEAR THE READ BUFFER 
?PUT INFO IN FIRST WORD 
?PUT CURRENT ADDR IN NXT 
}G0 UPDATE BLOCK 
;INIT WAIT LOOP 
fGIVE THE DRIVE TO B 



? TEMPORARY RETURN TO MONITOR.... ^ 
> THEN CONTINUE AT NEXT INSTRUCTION. 



;G0 READ BLOCK 

?HAS B UPDATED BLK YET? 

;BR BACK IF NOT 

;G0 READ THE DATA B WROTE 

$ REQUEST FOR MONITOR TO CHECK DATA 

; IF ERROR, CONTINUE 



STEM EXERCISER MODULE 
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I 



554 



p 8 
562 
563 




176062 
176040 
176104 
176074 
176064 



37 

5530? 
Jl372 
000207 



CYCLEB? MOV 
lis JSR 
BIT 
BEQ 
PIT 
BEQ 
BIT 
BEQ 

2§S BIT 
BEQ 

3$: JSR 

MOV 

4$S 

BREAKS 

BREAK? 

DEC 

BNE 

DEC 

BNE 

JSR 



176000 6$: 



17570 4 
175752 



7S: 



RTS 
MOV 
JSP 
JSR 
JSR 
JSR 
JSR 
BIS 
MOV 
JSR 
JSR 
MOV 

BREAK* 

BREAK? 

DEC 

BNE 

RTS 



?» TIMEP 

|l/FLAG 

M/RRUF 

3$ 

#1/PBUF 
3$ 

|2/RBUF 

PC /PEL EASE 
#2/P0 

/ BEG IN 
/BEGIN 

TIMER 

l<; 

PC £ DROP 

PORTHG 

PC 

RRUF+2/PLK1 
PC/ BLKADR 
PC/READ 
PC/WRITEB 
PC/WRITCB 



PC/CLPRB 
#2, FLAG 
FLAG/RBUF 
PC/WRTQO 
PC/RELE* 
#2>P0 



ASE 



/BEGIN 
/BEGIN 

RO 

75 

PC 



/GO SEE IF I IS DOME YET 

MS THIS THE FIRST TIME SINCE START? 

;BR IF NO/ SKIP THIS CHECK 

?HAS A WRITTEN THIS BLOCK? 

; BR IF NO 

;HAS A SET THE FIRST TIME FLAG? 
I BR IF NOT, MUST WAIT 

;HAS A WRITTEN THIS BLOCK SINCE B DID? 
} BR IF SO, ELSE 
?GIVE PORT TO A 



TEMPORARY RETURN TO MONITOR..-. 

?THEN CONTINUE AT NEXT INSTRUCTION. 



fGET THE CURRENT BLKl 

^GENERATE DISK ADDR FROM IT 

;G0 READ WHAT A WROTE 

?G0 WRITE IT BACK OUT 

?G0 WRITE CHECK IT 

;G0 CLEAR BUFFER 

?SET BIT SAYING B*S DONE 

;PUT INFO INTO RBUF 

?G0 WRITE IT FOR A TO SEE 

;GIVE DRIVE TO A 



J TEMPORARY RETURN TO MONITOR.... 

? THEN CONTINUE AT NEXT INSTRUCTION. 
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m 

574 



578 002512 



mm 

2462 

m 




MACY11 30A(1052) 
INITIALIZATION 



SETUP? 



10$? 



20$: 



01476* 
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MOV 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

BEQ 

ASL 

DECB 

BR 

BITB 
BEQ 
BICR 
MOV 



DVIDl/DVICE 
#13/pf41 

flf 40# RO 



Rl 
RC 
10$ 

Rl/DVICE 

if /DVICE 
#LOA D/DRPMSG 



MSGN$/BEGIN/DPPMSG 



3$: 



i get drive indicator 

;if rk is load medium then 

;begin 

? get load-device number 

% INITIALIZE DEVICE MASK 

I WHILE NOT POINTING AT LOAD DEVICE DO 

; POTNT AT NEXT DEVICE 

} COUNT SHIFTS 

} END 

} IF LOAD-DEVICE IS SELECTED THEN 
? BEGIN 

; DROP LOAD-DEVICE 

; SPECIFY LOAD-DEVICE DROP 

? ASCII MESSAGE CALL WITH COMMON HEADER 

; END 

/END 



?SET UP DEVICE REGISTERS - USE ADDRESS SPECIFIED B¥ ADDR IN HE1DER 




mm 

176626 

176622 
176616 
176612 
176606 
176602 
176576 
176572 

176564 
176560 

175500 175500 

\vm mm 

175120 

004062" 

hllllo 175110 
175444 175440 



1$: 



MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

CMP 

CMP 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

BIT 

BEQ 

MOV 



ADDR/ RO 

R0,RKCSl 

CPO}* 

R0,PKWC 

(R0) + 

RO/RKBA 

(RO)* 

RO^PKDA 

P,cLr , KCS2 
(P0) + 

RO /RKDS 



i RKECPS 



RQ,PKER 

(RO)* 
RO^RKASOF 
(PC)* 
PC.PKDC 

-gj>M5fi> 

^LIkfcpt 
dvice/drive 

#-I/OPYVE 

5-1/DSKADR 
VECTOR/ RO 

"INTSRY/(P0)4. 



RR1. 

if 
DPICNT/ICNT 



/GET DEVICE ADDRESS 

/GENERATE CONTROLLER REG ADDRESSES 



SP1 



?SKTP UNUSED REGISTER 
;SKIP RKDP & RKMRi 



?SA¥E IT IS DRIVE 
UNITIALIZE DRIVE COUNT 
UNITIALIZE SHIFTED DRIVE NUMBER 
? GET VECTOR ADDRESS 
/GET VECTOR ADDRESS 
;SET PRIORITY 
/DUAL PORT? 
;no- BRANCH 

;VES, LOAD DUAL PORT ITERATION COUNT 



RKBD DEC/X11 SYSTEM EXERCISER MODULE MACYll 3f<A<1052) 12-OCT-78 16: 59 PAGE 16 
XRKBDO.Pll 12-0CT-78 12:08 INITIALIZATION 

620 002716* 000207 2S: RTS PC 



RKBD DBC/X11 SYJ 
XRKBDO.Pll 1: 



ITEM EXERCISER MODULE 
-OCT-78 12:08 
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002746' 



631 



§58 

\i 

661 

m 

664 



012777 

m 

104403 
012767 



0000 40 
002572 
176440 

000000" 
000047 



8..... 

003132 

mi 

mm 



.05367 

004767 
000167 





176460 



007725° 
175132 



002754- 104405 000000" 001376" 



176230 



003106 
177614 



176366 
176350 



176342 



176320 
176302 



003204" 

003210" 



0J6777 176420 176216 

" \$ 6021*72 

412 

012767 007747" 176300 

104403 000000" 001476" 

004767 003400 
010031* 



;CHECK SELECTFD DRIVES TO SFE I 
JIF NOT READY AFTER DELAY, DROP 
CHKDRV: MOV #PIT5#flRKCS2 

JSR PC.CNTRDY 

TST 8RKCS1 

BPL H 

MSGN$/ BEGIN/ UNCLR 

MOV #47,ERRTYP 
*********************** 

HRDERS /BEGIN/RKCS1 
********************** 



IS: 



2$: 



10$: 



176270 3$: 



20$: 
4$: 



5$S 



6$: 



JMP 

JSR 

BR 

JSR 

NOP 

JSR 
JMP 
MOV 
MOV 
MOV 
JSR 
TST 
BM1 
BIT 
BEQ 
JSR 
JMP 
MOV 
MOV 
MOV 
CLR 
JSP 
TST 
BMI 
BIT 
BNE 

BRFAKS 
BREAKS 
DEC 
BMI 
BR 
JSR 
JMP 



ENTEST 
PC/ DRVADR 

9$ 

PC/READY 



PC/RDYl 

dIkaDR/BRKCS2 

#3/«RKCSl 

PACKAC/ARKCS1 

PC/CNTRDV 

gP*CSl 

»PIT15/«RKDS 

PC>RDV1 
1$ 

DSKADR,aP*CS2 

«11 # (8RKCS1 

SPINDL/aPKCSl 

CLK 

PC/CNTRDY 
GPKCS1 

#llT15/0RKDS 

20$ 
. PEGIN 
/BEGIN 

CLK 

n 

PC/RDYl 
1$ 



MOV #5/«RKCSl 

MOV CLPDRV/BRKCSl 

JSR PC/DRVRDY 

BP 6S 

BR 7$ 

MOV #DRVEPR,ORPMSG 
MS6N$/ BEGI N/ ORPMSG 



JSR 
SPIND 



PC/DROP 



F READY 
THE DRIVE 
;SUB-SVSTEM CLEAR 
;WAIT FOR CONTROLLER READY 
JERP09? 
; NO-CONTINUE 

?ASCII MESSAGE CALL WITH COMMON HEADER 
J WO NT CLEAR 

************************** ************** 
***************************************** 

?go d30p module 

;get a drive address 

;did all drives 

;check out rk0 6 or rk07 

} dummy return address 

;the above line added 5-oct-77 

?dpive available 

;no/ load next drive address 
;drive select / pack acknowledge 
;pack acknowledge 

JERROR? 

;YES-DROP DRIVE 
;ST ATUS VALID 



> START SPINDLE 

; ST ART THE SPINDLE 

Jf CLEAR TIMER 

;WAIT FOR CONTROLLER READY 
?ERROR? 

? YES-DROP DRIVE 

J ATTN SET-OPERATION COMPLETE? 

;VES-CONTINUE 

/TEMPORARY RETURN TO MONITOR.,,. 
;THEN CONTINUE AT NEXT INSTRUCTION. 
;TIME LET? 
;YgS-TRV AGAIN 



;CLEAP ATTN BITS 
;DRIVE CLEAR 
; DRIVE READY 

; NO-ERROR 

?SET UP ERROR MESSAGE 

;ASCII MESSAGE CALL WITH COMMON HEADER 
?DROP DRIVE 



>ec/ 
». pi 



111 SYSTEM EXERCISER MODULE 
1 12-OCT-78 12^08 

000665 



WW- 

9hhi: «"o 5 6 



503220- 



003360 



MACYll 301(1052} 
I N IT I AL 17. AT TON 
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7$: 

fi$: 
9$: 



BP 

JSR 
NOP 
BP 
JSR 

PR 
RTS 



IS 

PC/RFCAL 

PC^DROP 
UN AVAL 



?T OY TO RECALIBRATE THE DRIVE 
;DO NFXT DRIVE 

; RE TURN 
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® 



003236* 004767 003222 

III 

003254' 016777 175064 176124 
176106 



mm- 

003274* 

883188" 

003306* 
003310" 

1813*8'- 

003324" 



16777 
4767 



..... mm 

05777 176076 



Pll? 002050 
00410 

32777 004000 176072 



003264 




mm 

17464* 

jfjfj. ^3254 
000737 

mm 000002 



l$s 



2$: 



3$: 



an 



JSR 
BP 

JSR 

JMP 

MOV 

MOV 

MOV 

JSR 

TST 

BMI 

JSR 

BR 

BIT 

BEQ 

JSR 

BR 
JSR 

BP 

ADD 
RTS 



pc/ drv adr 

pLrdyi 

NXTDRV 

DSK ADR/ 8RKCS2 

iBITO/aRKCSl 

SFLDRV/ftRKCSl 

PC/CNTRDY 

gRKCSl 

PC^DRVRDY 

3$ 

|BIT11/«RKDS 

P?/DROP 

PROT 
NXTDRV 
PC* DROP 
DRvERP 
NXTDRV 

#2,(.SP> 

PC 



;GET A DRIVE ADDRESS 
;RAD RETURN/ NO DRIVE 

/LOAD DISK ADDRESS 
/SELECT DRIVE 
z SELECT DRIVE 

> WAIT FOR CONTROLLER READY 
?ERROR? 

;YES-GO DROP DRIVE 

;WAIT FOR DRIVE TO FINISH 

;WRITE PROTECTED ? 

; YES, DROP THE DRIVE 

;GO ON TO NEXT DRIVE 

5G0 DROP DRIVE 

?GET NEXT DRIVE 

?GOOD RETUTN 



SYSTEM EXERCISER MODULE 
" 12:08 




174756 



064734 
174732 



MACYll 30A(1052) 12-0CT-79 
INITIALIZATION 



PICKBKJ 



1$: 



25: 
3$: 



8 

5/BEG!n 



# BLK1 
IT6,SR1 



ADD «1*BLK1 
BIT 
BEQ 

RANDS, 

MOV P.ANNUM,PLK1 

TST BLK1 

BEO PICKBK 

CMP BLK1 / »27100. 

81)1 jlf £ BLKi 

BR PTCKBK 

MP? «BADSPT/RO 

MO? #J6,/R1 

CMP blkLcro)* 

REQ PICKBK 

DEC Rt 

BNE 3$ 

RTS PC 



16:59 PAGE 20 



;DO NEXT BLOCKCSECTOR) 
;DO RANDOM SEEKS? 
;NO-CONTINUE 

;GET RANDOM NUMBER 
; BLOCK SELECTED? 
; YE S-GET ANOTHER BLOCK 

JOUT Of BOUNDS 



, . . . .. _ BLOCK 1 

JTRY AGAIN 
JGET BAD SPOT TABLE 
?LOOK FOR 16 ENTRIES 
;IS THIS A BAD BLK1? 
;TF YES, GO PICK A NEW ONE 
JCOUNT A TABLE LOOK-UP 
;BR BACK IF MORE TO GO 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
XftKBDO.Pll 12-OCT-78 12:08 
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Ml 




• SPTTL DRIVE COMMAND ROUTINES 



mi 

174444 

mm 

000121 
174630 
174364 

ioofi? 

mm 

174326 

mm 




000123 
174476 

mm 

174406 



mm 

174642 
174642 



174624 



174610 
174572 
174570 
174570 



MSI? 

174532 
174532 

m 

174474 



174456 
174440 

mm 



write: 



writck- 

READ: 



writes: 



writcb: 



wrtoc: 

wrtoor: 



000121 174410 RDOO: 



MOV 
MO? 
MO? 
MOV 
JSP 
RTS 

MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
JSP 
RTS 

MOV 
MOV 
MOV 
MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
JSR 
RTS 

MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
JSR 
RTS 

MOV 
BR 



#123 # FUNC 

wCNTl f WDCNT 

WBUFPA/BUFADR 

WBUFEA/XMEM 

PC/EXCUTE 

PC 

*131#FUNC 

PC/EXCUTE 
PC 

#121 / FUNC 
WCNT$# WDCNT 

RBUFPA/BUFADR 
PBUFEA/ XMEM 
PC/EXCUTE 
PC 

Sc3?{/WDCNT 

RBUFPA/BUFADR 

RBUFEA/XMEM 

PCEXCUTE 

PC 

H31/FUNC 

WCNT2 € WOCNT 

RBUFPA/BUFADR 

RBUFEA/XMEM 

PCEXCUTE 

PC 

#123 C FUNC 

WCNT2/WDCNT 

RBUFPA/BUFADR 

RBUFEA/XMEM 

TCYL 

TSEC 

PC/EXCUT1 
PC 



;LOAD WRITE FUNCTION 

;LOAD WORD COUNT 

?LOAD BUFFER ADDRESS 

/LOAD EXTENDED MEMORY BITS 



;LOAD WRITE-CHECK FUNCTION 



;LO AD READ FUNCTION 

;LOAD WORD COUNT 

JLOAD BUFFER ADDRESS 

;LOAD EXTENDED MEMORY BITS 



?LOAD WRITE FUNCTION 
;LOAD WORD COUNT 
;LOAD BUFFER ADDRESS 
;LOAD EXTENDED MEMORY BITS 



JLOAD WRITE CHECK FUNCTION 

*LOAD WORD COUNT 

;LOAD BUFFER ADDRESS 

/LOAD EXTENDED MEMORY BITS 



;LOAD WRITE FUNCTION 
>LOAD WORD COUNT 
;LOAD BUFFER ADDRESS 
;LOAD EXTENDED MEMORY BITS 
?DO CYL 
;SECTOR 



;LO AD READ COMMAND 



rkbo dec/x11 systen exerciser module 
xrkbdo.pii i2~oct~7b ihob 



m 
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» SBTTL DEVICE DRIVER & INTERRUPT SERVICE 



003732" 016767 
003740" 016767 

umv mm 

iisi m 



003 



4030* 00630 

mv- Urn 
ft _ 8$p: nm 



174366 

km 

174340 

m 

174316 




174356 
174352 
175532 



175404 

mm 

175364 



175316 



EXCUTE: MOV 

MOV 

ETCUT1 : MOV 
EXCUT2: CLR 

JSR 
JMP 

1$S MOV 
MOV 
MOV 
MOV 
MOV 
ASL 
ASL 
ASL 
ASL 
BIS 
BIS 
MOV 
MOV 
FXITS 



CYLA PR, TCYL 

SEC ADR/TSEC 
«3, RETRY 
b'T>LG 
PC/RDYl 

RESTRT 

BUFADR, ARKBA 
WDCNT,§RKWC 
TC YL, foRKDC 
TSEC/ flRKD A 
XMEM # R0 

88 

RO 
RC 

FUNC,R(I 
RKFLG, RO 
R0,»RKCS1 
#1 f I NTFLG 
, BEGTN 



?GET CYL ADDR 

/GET SECTOR ADDRESS 

J CLE A R EXPECTED INTERRUPT FLAG 



JLOAD CYLINDER ADDR 
/LOAD THE ADDR OF SECTOR 
; EXTENDE D MEM BITS 



; ADD FUNCTION CODE 

; SET/RESET THE BIT10 

/EXECUTE THE FUNCTION 

/TURN ON EXPECTED I NTERUPT FLAG 

?EXIT TO MONITOR, MODULE WAIT FOR INTERRUPT. 



ill 



838 



0040 62 
004070 



042777 
000004 




RJ|S|R MODULE 

100100 175306 
000000* 004076* 

175272 

140000 175264 



4114' 

88: 

4132* 
4134* 

4152* 

004160* 

M1JW'- 

004172* 

mm 

004210* 

m 

004234* 

004242* 
OQ4250* 

004262* 

mm- 
mil' 



2375 



004767 



i 



67 

100446 
2767 
4403 
2767 



8 



012777 

" 4767 

m 

104403 
012767 



mm- 



000012 

mm- 



J01340 
175206 

002412 

mm 

7646" 

mr 



104405 000000' 

000040 
001250 

175116 

000252* 

himt- 

oc 

4' 



75216 



Hi 



5256 
'476* 
652 



001510" 
175136 
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INTSRV: 



IS; 



2$! 
3$; 



4$: 




175176 8$: 

001476* 

173572 

001376* 



173446 



5S: 



BIC #BIT15!BIT6,(aRKCSl ?DISA«LE INTERRUPTS 

PIRQ$, BEGIN, 1$ ? QUEUe"up"to"cONtInUe"at"^ 



TST 
BEQ 
BIT 

BE Q 

MOV 
MOV 
MOV 
MOV 
DEC 
BGF 
MOV 
MOV 
MOV 
JSR 
TST 
BPL 
JSP 



I NTFLG ?ARE WE REALLY EXPECTING AN INTERRUPT? 

2$ 5 NO-MUST BE ERROR CONDITION 

#PIT151 PIT14,«PKCS1 ?ERROR OR DRIVE INTERRUPT 



6$ 

#12, RO 

RKCS1,R1 

#SVCS1,R2 

(Fl)*,(P2>* 

RO 
3$ 

RKCS1,CSRA 
SVCSi,ACSR 



;NO-MUST PE OKAY 

;SAVE 11» REGISTERS 

;START OF SAVE REGISTERS 

; START OF MEMORY TO PUT THEM IN 



#?IT1$,GRKCS1 
PC/CNTRDY 
flRKCSl 

4$ 

PC, DROP 
UNCLR 
RESTRT 
SVCS1 

5$ 

i-uv #FXTRA, ORPMSG 

MSGN$, BEGIN, DPP MSG 

MOV #11,ERRTYP 

*************** ********* 

HRDERS, BEGIN, TABLE 

• ***************** 

MOV «BIT5,flRfCCS2 

JSR PC/CNTRDY 
TST |PKCS1 

#MODSP,SP 
LOOP3 

#UNCLR,DRPMSG 
MSGN$, BEGIN, DPPMSG 
MOV #47,EPRTYP 

• *********************** 

HRDERS, BEGIN, PJCCSl 
************************ 

JMP ENTEST 



JMP 
TST 

BMI 
MOV 



BMI 
MOV 
JMP 
MOV 



;SET UP CSR FOR ERROR CALL 

, SET UP CONTENTS OF SAME 

/CLEAR THE ERROR 

^CONTROLLER READY 

; ERROR? 

;NO-CONTINUE 

;YES-DR0P DRIVE 

; START OVER 
;ERROR? 

/REPORT THE ERROR 



;ASCII MESSAGE CALL 
# ILLEGAL INTERRUPT 
******************* 

I* 



WITH COMMON HEADER 



SUBSYSTEM CLEAR 

WAIT FOR CONTROLLER READY 

ERROR? 

YES GO DROP TEST 
INITIALISE THE SP 
JMP TO LOOP3 
YES-LOAD MESSAGE 



ASCII MESSAGE CALL 
# WONT CLEAR 
********* 



WITH COMMON HEADER 



?GO END IT ALL 



JSR 

BR 

DEC 

BGE 

BIT 

BEQ 

JSR 

BR 



PC, ERRORS 
7$ 

RETRY 

EXCUT2 

|BIT0,SR1 

PC^DROP 

|E TRY 
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XRKBD0.P11 12-QCT-78 12:08 DEVICE PRIVEP S INTERRUPT SERVICE 

857 

858 004362* 000207 65: PTS PC 



m 



004364* 00^167 175270 7$: JMP RESTRT 



00 4767 

mm 




STEM EXERCISEP MODULE 
2-OCT-78 12:08 



MACYll 

ERROR H 



3CAUC52) 
ANDLEP 



062716 
000207 



000154 
00*200 

C0C362 
000004 

100000 
000100 



175072 

SWoli 



000554 
000010 

175004 



000000' 
173366 

000000' 



174640 
C01536 

000002 



175154 
173376 

175124 

175114 



173322 
000003 
001430' 

00151C 9 



1$5 



2$: 



35: 



45S 
5$: 
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ERRORS: 



JSR 

PIT 

BEQ 

JSP 

BR 

BIT 

§1° 

BIT 
BEQ 
BIT 
BNE 

MOV 
BTC 
CMP 
BNE 

JSP 
BIT 
PEG 

CMP 
BLT 



PC^ERRGEN 

|PIT7,S¥EP 

PC # BSRD 

SilT2,SRl 

45 

2$ 

|PIT15,SVER 

*PIT6,SVEP 
2S 

SVCS1,RC 
25 

PC,ECCQR 

*BIT3,SR1 

4$ 

RETPY, *3 
3S 



MSGNS, REGTN/ ERRUF 
CLP ERRTYP 
***************** 

HPPER5# BEGI N, TABLE 
******************* 



;GENEPATE THE ASCII MESSAGE 

;«AD SECTOR ERROR 

?SKIP THIS IF NOT 

?RE ID & COM APRS BAD FILE SECTOR 

>NO MATCH - REPORT AS AN ERROR 

; TYPE ERROR MESSAGED 

;NO JUST EXIT 

?TYPE IT ALL 

; DATA CHECK ERROR? 

5ECC HARD ERROR? 
;YES - GO REPORT IT 

;*FFP THE FUNCTION CODE 



; APPLY THE CORRECTION STUF 
JTYPE A MESSAGE 
?NO - JUST EXIT 



} ASCI I MESSAGE CALL WITH COMMON HEADER 



************************************************************** 

********************************************* 



m 

JSP 
BR 

ADD 
RTS 



SFTERR 

PC,PEC4L 
5$ 

Jt2,(SP) 
PC 



IT A SOFT ERROR? 
;NO - HARD - RECALIBRATE THE DRIVE 




STEM EXERCISER MODULE 
2-OCT-78 12:08 



7114* 
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# SBTTL ERROR MESSAGE GENERATOR 




m. 

01020 

mm 

032767 

05267 
05725 

ma 

m 



062704 

mm 



5367 
1340 



ERRGEN : 



174754 
036000 174734 
004070 174736 
053057 174730 



007370* 
174532 

mm- 



174614 



000020 174566 



007350* 
001454* 



000004 
174522 



174512 



1$: 



2$: 



3$: 



4$: 



5$: 
6$: 



7$: 



004770* 



CLP 
MOV 
MOV 
MOV 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
MOV 
INC 
TST 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
BEQ 
COM 
MOV 

pk% 

BCS 
ROR 
BR 

CLC 
ROR 
BCC 
MOV 
MOV 
CMP 
BGE 

ADD 
DEC 
BNE 

DEC 
BNE 

MOV 
MOV 
MOV 
RTS 



SFTERR 
#ERT AB/ RO 

#S2HARD,SVCS2 
IS 

|S1HARD,SVCS1 

|DSHARD,SVDS 

#|RHARD,SVER 

"R5) + 

4,CNTR1 

ERTAP/RO 
(P0)+,R1 
(Rg)+ / R4 
(PC)*,R3 
<R1),R2 
R3,R$ 
6S 
R3 

#16.,CNTR2 



R3 
4$ 

2? 



R2 

R5,#ERBUF+24 
7$ 



s 



#4,R4 

"NTR2 



CNTP1 
2$ 

ftDRVE/f R5)+ 
§NUMB,(R5)+ 
#-l,(R5> 

PC 



;CLEAP SOFT ERROR FLAG 

fERROR TABLE PARAMETERS 

?PRINT POINTER BUFFER 

; ASSUME THAT ITS HARD 

; ANY HARD ERRORS IN RKCS2? 

;Y£S, REPORT 

r ANY HARD ERRORS IN RKCS1? 
;YES REPORT 

; AN Y HARD ERRORS IN RKDS? 
;REPORT 

? ANY HARD ERRORS IN RKER 

;MUST BE SOFT BY NOW 
;SET SOFT ERROR FLAG 

JCOUNTER FOR 4 REGISTERS 
; START OF ERROR TABLE PARAMETERS 
;GET ADDRESS OF POINTER TO REGISTER 
;ADDRSSS OF ERROR MESSAGE TABLE 
?GET MASK 

?GET CONTENTS OF REGISTER 
/KEEP ONLY THOSE IN BIT MASK 
;GO TO NEXT REGISTER IF ZERO 



;CLEAR THE CARRY 

; ROTATE THE MASK WORD 

; ROTATE THE VALUE - DUMMY ROTATE 



;IS BIT SET? 
;NO 

;TWO SPACES 

?PUT ADDRESS OF MESSAGE IN TABLE 
?ENO OF BUFFER SPACE 
;VES - GO PRINT THEM 

; ADDRESS OF NEXT MESSAGE 
;DONE WITH THIS WORD? 



;DONE WITH ALL REGISTERS? 



;END OF MESSAGES 



ilBD mcnil SYSTEM EXERCISER MODULE 
lISSDO.Pll 
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mm 

000002 
001012 

174460 

C01026 

mm 



MACY11 30AC1052) 12-OCT-78 16:59 PAGE 27 
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000021 
174454 
174236 
000212 

174224 

mil- 



177777 
174354 
173112 

174256 
001010 



.SBTTL BAD SECTOR CHECK 



174502 BSRD: 



is: 



173300 174 

mm m 



P4340 
74324 

_ 74320 

mm 174326 
mm 174312 

173014 



2$: 



10$: 



3$: 



4$: 



MOV 
MOV 

ADD 
CMP 
BNE 
CLP 

CMP 
BGE 
JSR 
JMP 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

MOV 

MOV 

MOV 

ASL 

ASL 

ASL 

ASL 

BIS 

BIS 

MOV 

JSR 

BR 

TST 

BMI 

MOV 
MOV 
DEC 
BEQ 

MOV 
MOV 
CMP 
BEQ 
CMP 
BNE 
CMP 
BNE 
BR 

TST 
BEQ 
MOV 
BR 



*1#HSRD 
#7$6,P0 

#2,R0 
R0,#1012 

HSRD 

R^,«1026 

PC,PDY1 

RFSTRT 

DSKADR,GRKCS2 
#-400, |RK WC 
RPUFPA/ORKBA 

.+8. 

#i456 f «RKDC 
RO/ftRKDA 
RBuFEA/P5 
R5 
R5 
R5 
R5 



me* 

R5 



Q r R5 



PC,f)PVRDY 

||kcsi 

#177, Rl 

#RBUF+1Q,R2 

Rl 

4S 



,R3 
R4 



< R2) + 
<R2>+, 
R3,#-l 

S§DC,P3 
3$ 

SECADR,R4 

3$ 

55 

HSRD 

|!oiO,RO 



?FL AG TO INDICATE READING HARDWARE SECTORS 
;TNITIAL SECTOR COUNT 



;DONE WITH HARDWARE FILE? 
;DOING SOFTWARE FROM NOW ON 



;E ND OF SOFTWARE FILE? 
NO ■ 



; END OF FILE AND 



MATCH 



;LOAD DISK ADDRESS 

;ONE SECTOR TRANSFER 

JBUFFER ADDRESS 

;DESIRED CYLINDER 

> BR ANCH IF IT IS A RK06 

?SKIP THE NEXT MOV INSTRUCTION 

;LAST CYLINDER FOR RK07 

;DISK SECTOR/TRACK ADDRESS 

;GET READ BUFF EA BITS 

/ALIGN BITS 



/LOADFUNCTION 

;SET THE RK06/RK07 FLAG 
?ISSUE THE FUNCTION 
/WATT FOR DRIVE READY 

? ANY ERRORS? 
;YES IF SET 

;MAXINUM NUMBER OF BAD SECTOR ENTRIES 
; START OF BAD SECTOR INFO 

•THIS IS THE END 

/CYLINDER INFOR 
; SECTOR/TRACK INFO 
?END OF SECTOR INFQ 

; DESIRED CYLINDER? 
;NO - KEEP LOOKING 
/DESIRED SECTOR? 
;NO - KEEP LOOKING 
/MATCH RETURN 

; DOING THE HARDWARE GUYS? 

;NO - ALL DONE THEN 

;SET UP FOR SOFTWARE FILE 



RKBD DEC/Xll SYSTEM EXERCISER MODULE MACYll 30A(1052) 12-OCT-78 16:59 PAGE 2B 
XRKBD0.P11 12-OCT-78 12:0* BAD SECTOP CHECK 

\m mw- mm fl00002 mi m n- (sp} 



YSTEM EXERCISER MODULE 
12-OCT-78 12:08 



MACYll 3CA<1C52> 12-0CT-78 
ERROR CORRECTION ROUTINE 



)46 



005242" 




016702 174300 

m te8 



C00001 

174264 
177760 



174206 



ECCOR5 



1$: 



2$S 



005354* 000207 



3$: 



.sum 

MOV 

sup 

MOV 
DEC 

MOV 
ASR 
ISR 
ISP 
BIC 
ADD 

MOV 
CLR 

m 
tit 

DEC 
htif 

MOV 
MOV 
BIC 
BIC 

m 

BEQ 

MOV 
MOV 
BIC 
BIC 
BIS 

RTS 



ERROR CORRECTI 
SVBA,R2 

||ecp§*?i 

*1,P1 

R1 # R2 

SVECPT,R3 
||77760,R0 

11 

RO 
IS 

hu7> 
ro;ri 

3$ 



Wit" 

Rf,<P2> 



mi 

PC 



R2> 



6:59 PAGE 29 

ON ROUTINE 

^BEGINNING OF SECTOR ADDRESS 
JSTART OF BID DATA BUFFER 
fPOSITION OF ERROR 

J DETERMINE WORDS THAT ARE BAD 

JCLEAR BYTE INDICATOR 
} ADDRESS OF ERROR 

JERROR CORRECTION PATTERN . ,, 

|?J?R?e?i?5°gT F .8? s s 5ft R 5o8r^»g8 R Y RECT, °" 

jSHIFT PATTERN LEFT ONE BIT 

;CHECK IF IN POSITION 

^CORRECT 1ST WORD WITH EXCLUSIVE OR 



ICORRECT SECOND WORD 



^RETURN 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKB0O.P11 12-OCT-78 12:08 



MACYll 30A(1052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



16:59 PAGE 30 



1086 




00 50 67 
4767 
5777 
0442 
4767 
.0167 
016777 
016777 



004767 

mm 
nm 

32777 
Q01O22 
104407 
104407 

mm 

012767 

mm 



174004 
000136 
174004 

000654 
000116 

172734 173774 
174154 173756 



000100 
173746 

100000 



000200 173740 

mm- 

173700 

007526* 174000 
P07747* 573770 
000000' 001476* 
000002 



DRVRDY : 



1$: 



173750 2$: 



• SBTTL COMMON SUPPORT ROUTINES 

CLR 
JSR 
TST 
BMI 
JSR 
JMP 
MOV 
MOV 

NOV 
JSR 
TST 
BMI 
BIT 
BFQ 
BIT 
BNE 
BREAK! 
BREAK! 

BE? 

MOV 
BR 
MOV 



CLK 

PC,CNTRDY 
flRKCSl 

*1 

PC/RDY1 

d!kADR/«RKCS2 
SELDRV/PRKCSl 

#l,aRKCSl 

PC/CNTRDY 
|RKCS1 

|BIT15/iaRKDS 

#ilT7/flRKDS 
5<: 
1/ BEGIN 
/BEGIN 

fcNOTRED/DRPMSG 
t^RVERR/DRPMSG 



MSGNS/REGTN/DRPMSG 
BR 6$ 
ADD pr(SP) 
RTS PC 



/CONTROLLER READY? 
;ANY ERRORS? 
;VES 



/SELECT DRIVE 

/ERROR? 
?YES 

; STATUS VALID 



;DRIVE READY ? 
;YES £ RETURN 

/TEMPORARY RETURN TO MONITOR..., 
/THEN CONTINUE AT NEXT INSTRUCTION. 

J NO, WAIT SOME MORE ? 
)VES/ WAIT 



;ASCIT MESSAGE CALL WITH COMMON HEADER 

} ADJUST STACK FOR GOOD RETURN 
J RE TURN 



RKBD DEC 
XRKBDO.P 

p 

1089 

\k 

)93 
594 
1095 
1096 



894 00 

88! 



005524* 
005530* 
005536* 
005540* 
005544* 
005550* 
005554' 
005556' 
5564- 
5570- 



STEM EXERCISER MODULE 
2-OCT-78 12:08 

mw hum 173640 

001014 
104407 
104407 
005367 

SiHIt 5 007617- 173712 

000167 

000207 




MACYll 
COMMON 



30AU052} 
SUPPOPT 



A 12-OCT-78 
ROUTINES 



16:59 PAGE 31 



jntrdy: 



2?: 



CLP CLKl 

BIT «BIT7/«PKCS1 

BNE 2S 

BPEAKS/ PFGIN 

BREAKS/ BE GIN 

DEC CLK1 

BNE 1$ 

MOV #CNTRNV/DRPMSG 
JMP ENTEST 

RTS PC 



?SET THE TIMER 
CONTROLLER READY ? 
?YES £ CONTINUE 

} TEMPORARY RETURN TO MONITOR.... 

/ THEN CONTINUE AT NEXT INSTRUCTION. 

?WAIT SOME MORE ? 
;YES 

?STOP THE RUN 
; RE ADV/ RETURN 



RKBD DFC/Xll SY 
XRKBO0.P11 1 



STEM EXERCISER MODULE 
2-QCT-78 12:08 



MACY11 3CAC10 52) 12-OCT-78 

COMMON SUPPORT ROUTINES 



16:59 PAGE 32 



m 



8 
1 

I 



005572' 



004767 



000056 
172540 

177*704 




; RQUTI NE DETERMINES IF DRIVE IS AVAILABLE, READY/ VOLUME 
; VALID/ AND NOT WRITE PROTECTED 



173600 
173562 

173556 



173524 
173506 



RFAHY: 



ill 



001570' 



cocou 

002000 001570* 
C00002 



173350 



JSP 
PR 
MOV 
MOV 
MOV 
JSR 
MOV 
PIT 
BE 
TST 
PEG 
PIT 
BNE 
ADD 
PTS 

ROUTINE TO 
KCHKS MOV 
MOV 
JSR 
MOV 
BIT 
PNE 
MOV 
BIT 
BEQ 

BEQ 
MOV 
BIT 

BEQ 
CLP 
MOV 
PIS 
DEC 
BE0 
ADD 

E£» 

MOV 
BIC 

ADO 
BR 

* BP 
MOV 

RTS 



PC/PKCH* 



$KADR £ «RffCS2 
&RKCSi 



GRKCSl 
PC/CNTkDY 
»PKDS # R1 
|BIT0>RKDS 



PIT0/R1 

L(sp) 



;CHECK IT IS A RK06/RK07 
;ERPOR EXIT FROM RKCHK 

; SELECT THE DRIVE 

;WAIT FOR CONTROLLER READY 

;SAVE RFDS IN PI 

;DRIVB AVAILABLE? 

>N0 

;drivr ready? 

}HQ 

IVOLUME VALID? 
JVES 

*S*IP TNSRTUCTION FOLLOWING CALL 



CHECK CUR RE IT SEL 
DSKIpR € ftRKCS2 
gBITO,&RFCSl 
PC £ CNTRDY 
»RKC$2,R1 
|BIT12,R1 

$R*DS,R1 
*P1T15,RI 

|piT8 # Rl 

«Iker # ri 

*PIT5,R1 



ECTED DRIVE 



1$S 
2S5 



3$: 
4$S 



7SS 



5*. 

#2, PI 



UNLOAD(Rl) 



r.,R2 
BITIO/UNLOADCRI) 

PC 



*oa6 the 6 dr 



RESS 

Mfljr 



DRIVE 



8R RK07 
IVE AD1 
ASSUME IT IS A RK< 

mi m msf v 

NED SET ? 

BRANCH IF SO 

READ THE DRIVE STATUS 

DRIVE STATUS AVAILABLE ? 

BRANCH IF NOT 

IS IT A RK06 ? 

BRANCH IF IT IS 

READ THE ERROR REGISTER 

DRIVE TYPE ERROR MOST BE SET* IF RK07 

OTHERWISE /ERROR 
RK07 SET UP 

BRANCH IF ALL DONE 
„ ADJUST TABLE ADDRESS 

NINE COMMANDS 
RESET RK07 FLAG 

EXIT IF ALL DONE 

ADJUST TABLE ADDRESS 

BRANCH BACK 

NORMAL EXIT 

CLEAR THE CONTROLLER. 

EXTT ^ 



RKBD DEC/Xlt SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



006030* 012767 077777 173330 
- 173332 



m m m 



173330 



006102 



012601 
000414 



)4407 



7 006112* 1044C7 COOOOO* 
72 006134* 000406 

l\ mm- mm mm 



M- MM 00000 



000432 
2 



MACY11 3OAC1052) 12-OCT-78 16:59 PAGE 33 
COM" ON SUPPORT ROUTINES 

JROUTINE WAITS FOP PPIVE READY/ IF NOT READY 
NQTRDY: MOV 

4$: mqv 

JSR 
MOV 



6$S 



2S: 
7S: 



MOV 
MOV 
JSP 
BIT 

8S9 

MOV 
BR 



#77777/CLK 

D$KADR,»RKCS2 
#BIT0 £ *PKCS1 

#PIT0/!IRKOS 
6S 

Rl £ -<SP) 
(Sf)*/Rl 

2? 



BPFAKS, BEGIN 

, BEGIN 

,REG1N 
r BEGIN 

"IF 



BRF.AKf/P 
Kf # F 



PRFAK« 
BPEAKS/I 
DEC 
BNE 
BP 

ill 

JMP 
BR 
NOP 
JSP 

BP 
ADD 
RTS 



U 

PC^DPOP 
NO TP ED 



J SET THE TIMER 
fCLEAR ERRORS FROM CO 
f WAIT FOR CONTROLLER READY 

^SELECT DRIVE 
J SELECT THE DRIVE 
;WAIT FOR CU READY 
; DRIVE AVAILABLE 
9 HQ 



^TEMPORARY RETURN TO MONITOR* ••• 
JTHEN CONTINUE AT NEXT INSTRUCTION* 
| TEMPORARY RETURN TO MONITOR..-. 
I THEN CONTINUE AT NEXT INSTRUCTION. 
;COUNT TIMER TO ZERO 

JDROP DRIVE 

,<*E.» CO |.|| j W t| 

>YSS THIS LINE DELETED 5-0CT-77, 
J ADDED 5-0CT-17 
5 ADDED 5-0CT-77 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 




016777 



240 
0502C7 



006254* 004767 
006260* 000401 

mm- ' " 

006270* 
006274* 



062716 
000207 



\fflU 



000004 



173172 



00^240 
000240 
*U6777 172122 173162 

016777 173356 173144 

mw mm 173132 



177312 
177542 



M*CY11 3CAM052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



16:59 PAGE 34 



;ROUTINE ISSUES A DRIVE CLEAR TO SELECTED DRIVE 

; AND THEN ISSUES A DRIVE SELECT AND P»CK ACKNOWLEDGE. 

;WILL ALSO CLEAR ANY CONTROLLER ERRORS BEFORE RETURNING. 



016777 172150 173210 CLEAR: 



1$: 



MOV 
MOV 
MOV 
JSP 
NOP 
NOP 
NOP 
MOV 
MOV 
MOV 
JSR 
MOV 
NOP 
NOP 
NOP 
RTS 



DSKADP,faRKCS2 
fc*,flRKCSl 
CLPnPVjGRKCSl 
PC,CNTRDY 



DSKADR#.«RKCS2 
«3 £ iaPKCSl 
PACKAC,«RKCS1 
PC,C NTRDY 
#PIT15,QRKCS1 



;get DRIVE n 
JISSUE DRIVE CLEAR 

JCLEAR THE DRIVE 



;TSSUE SELECT DRIVE AND PAC* ACK. 
;ISSUE PACK ACKNOWLEDGE 
;WAIT FOR CU READY 
/CLEAR CU ERRORS 



? ROUTINE CALLS READY AND NOTRDY SUBROUTINES 



RDYl: 



IS: 



JSP 

BP 

JSR 

RTS 

ADD 

RTS 



PC, READY 
1? 

PC, NOTRDY 
PC 

#4,(SP) 
PC 



?CHEC* EOP DRIVE AVAILABLE 
?GOOD RETURN 

?WAIT FOR DRIVE AVAILABLE 
?DRTVE NOT AVULARLF 



RKBD DEC/Xll SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



MACY11 3CAU052) 12-PCT-78 
COMMON SUPPORT ROUTINES 
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L218 
1219 



1223 

i 
P 

234 



006302* 
006306* 

006306* 



006326* 

881311- 

006336* 

mitt] 

lit 

006372 



004767 
00C167 

016777 

mm 

100447 
004767 
00C167 

016777 

88m? 

1644^7 

mm 

100765 




177752 
500154 



173264 173062 

mm 

177722 
00*11 24 

173242 173032 

mm 

173016 

040000 173020 
000000* 

mm' 



mm 
mm 

000002 
000140 



172746 



RECAL: JSR 
JMP 

10$: 

; MOV 
MOV 
JSR 
TST 
BMI 
JSR 
JMp 

20$: 

} MOV 
MOV 
CLR 
JSP 
TST 
BMI 

1$: BIT 

RNE 
BPEAK< 

BMI 
BP 

2$: JSR 
JMP 

30$: 

} MOV 
MOV 
JSR 
BR 

3$S JSR 



00 4767 

"""675* 
207 



000130 



4$: 



5$: 



BP 

JSR 

RTS 



PC, RDYl 
5$ 

g%«RKCSl 
CLPDRV,«RKCS1 

PC, RDYl 
5« 

#13,»RKCSl 
RFCALX,ORKCSl 

fc^CNTRDY 
rtPKCSl 

|^IT14,«RKDS 

,be3in 
i$ 

4$ 

PC, RDYl 

5$ 

ts^aRrcsi 

CLRDRV#«RKCS1 

PC,DRVRDY 

3$ 

||#(SP) 

PC, DROP 

DRVERP 

5$ 

PC r DROP 

CALIB 

PC 



;CLR ATTN BIT 
/CLEAR THE ATT BIT 
?CONTROLER READY 
? ANY ERRORS? 
; YES-GO REPORT 



/RECALIBRATE THE DRIVE 
/RECALIBRATE THE DRIVE 
? CLEAR TIMER 

?WAIT FOR CONTROLER READY 
? ANY ERRORS? 
JYES-GO REPORT 

? ATTN SET-OPEPATION COMPLETE? 
?YE S-CONTINUE 

^TEMPORARY RETURN TO MONITOR.... 
•THEN CONTINUE AT NEXT INSTRUCTION. 

;TI"E left? 
?NO 



JCLEAR ATTN BITS 
;CLEAR ATTN BITS 
;DRIVE READY? 
;NO - ERROR 
} ADJUST STACK 

?GO DROP DRIVE 



;DROP THE DRIVE IF NOT READY 
; RETURN 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



MACV11 3CA(1C52) 12-OCT-78 
COMMON SUPPORT ROUT I NFS 



1255 

P 

1258 

'"59 



Il63 

M 

m 



006464' 
0p6470; 

8ol^2o " 
006502' 
006510' 

mm- 

006530' 

006540' 
006544* 



00 5267 



005267 

"12767 
)0167 



012767 
000167 

022 

001406 

mm 

^62716 
000412 





172766 

mm 



177777 171576 
177777 171562 
171560 171560 



171554 172704 
000060 172676 



DRVADR: 



1$: 



2$: 



3$: 
4$: 



INC 
INC 
TST 
BNE 
MOV 

JMP 

PIC 
CMP 
BEG 
ASP 
BCC 
ADD 
BP 

MOV 
MOV 
MOV 

BR 

MOV 
BIS 
RTS 



DPYVF 

DSKAOR 
JVICE 

ItloNE/ORPMSG 



16:59 PAGE 36 



;COUNT A DRIVE 
;NE*T DRIVE 
;ANY DRIVES LEFT? 
?YES 



DSKADR 
#«.,DPYVE 
25 

DRIVE 

DPVADR 

#2,<SP) 

3$ 

tf-l/DRYVE 
#-l/DSKADR 
DVTCE, DPI VE 

45 

DRYVE-NUMB 
#60 1 NUMB 
PC 



•STOP THE RUN 

MIP TO A DDR 7 ONLY 

; ALL DRIVES CHECKED ? 

;YES, GO FLAG END OF DRIVES 

jno, is next drive chosen ? 
;ng, go try another drive 
;adjust stack pointer 



/RESET DRIVE COUNTER 
;7ER0 THE SHIFTED DRIVE # 
^RESTORE CHOSEN DRIVES 



'.CURRENT DRIVE NUMBER IN MESSAGE STRING 
;MAKE IT ASCII 



RKBD QEC/X11 
XRKBD0.P11 




SYSTEM EXERCISER MODULE 
12-OCT-78 12:08 

017667 000000 172660 

mm mm m mnv 

000000* 001376' 

mm 



172504 



MACY11 30A(1052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



16:59 PAGE 37 



000207 



172474 
00002 



172564 



DROP: 

1$: 
2$: 

35: 



MOV «C(SP),r>RPMSG 
MSGN5, BEGIN, DPP 5ASCII 
MOV #6 £ ERRTy£ 
.****************! 

HPDEf.5 # BEGIN,PKCSl 

DRYVE,RC 
25 



MOV 
BEO 
ASL 
DEC 
BNF 
BTC 
MOV 
JSR 
TST 
BPL 
MOV 
JMP 
ADD 
PT? 



s5 

Rl/DVTCE 

PIT15,GRKCS1 

PC/CNTRDY 

*RKCS1 

15 

SUNCLR, DRPMSG 

ENTF.ST 

#2,(SP) 

PC 



MESSAGE CALL WITH COMMON HEADER 



?initiali2e drop picker 
;get the drive number 
?if drive go drop it 
?no, ai" at the next drive 
?is this the one ? 
;no, look again 
;drop the drive 
;issue controller clear 
;go wait for cu ready 
janv errcrs? 

?set error message 
;drop module 

/RETURN 



SYSTEM EXEPCISER MODULE 
12-OCT-78 1 2 : B 




w 

mm* mik 



7006* 022700 000026 

mw hum 171306 

j7020; ^62700 000026 



500770 



n mm mm imt 

31 007036* 000207 



MftCYll 30A(1052) 12-PCT-TB 

COMMON SUPPORT ROUTINES 



1332 



BLKADR : 


MOV 




BIC 




MOV 




CLP 




MOVB 




SUB 




CMP 




RLE 


IS: 


SUB 






CLP 


2$; 


r*T d 
ILr 


CMP 




BHI 




INC 




SUB 




BR 


3$: 


CMP 




BHI 




INC 




SUB 




BR 


4$: 


SWAB 




BIS 




RTS 



RLK1 £ P0 

R6,R1 
if/P0 



CYLADR 
SECADP 
|66./PC 

CYLADR 
|66.,PC 

|22.,R0 

SECADP 
|22.,P0 



R2 



SEC ADR 
R0, — ~ 



SECADR 



16:5<> paGE 38 



;GET CURRENT BLOCK NUMBER 
;CLEAP THE SIGN BIT 
;MAX BLOCK ADDRESS 



"GET NUMBER OF SECTORS 

;SUBTPACK NUMBER OF SECTORS TRANSFERED 
/MAKE SURE XFER WON'T RUN OFF END 
;ITS OK 

? MAKF IT SOME SMALLER NUMBER 



/GET CYLINDER NUMBER 
;ON THIS TRACK 

J NO - INCREMENT CYLINDER ADDRESS 
;SECTORS PER CYLINDER 
/FIND RIGHT CYLINDER 

/FIND TRACK 
;ON RIGHT TRACK 
;BUMP TRACK COUNTER 
;22 SECTORS PER TRACK 
^CONTINUE 

; ALIGN TRACK BITS 

/COMBINE WITH SECTOR ADDRESS 

/RETUPN 



RKBD DEC/Xli 
IRKBDOoPll 



SYSTEM EXERCISER MODULE 
12-OCT-78 12:08 



000366* 
171062 




MACY11 30A(1052) 12-OCT-78 
COMMON SUPPORT ROUTINES 



CLRRBs MOV 
MOV 

clrcom: clr 

DEC 
BNE 
RTS 



#RBUF,R0 
RBUFS7,R1 
(RO)* 
Rl 

CLRCOM 
PC 



16:59 PAGE 39 



/CLE AR PBUF BUFFER 
/GET ITS ADOR AND SIZE 
/CLEAR ANOTHER 
JCOUNT ANOTHER 
/BR BACK TILL DONE 



jibm mm 
to? mm 

007100* 010077 172302 

wm'-wiJi 172462 172264 



RELEASE : MOV 
BIS 
JSR 
JMP 



1$: 



MOV 
MOV 
MOV 
RTS 



DSKADR,R0 

PX,6t)Yl 

RESTRT 

RO,0RKCS2 

t ....... 

PC 



l#gRKCSl 
ELDRV,»RFCS1 



?PUT RELEASE BIT IN 



;WRITE THE COMMAND 
?DO IT 

?DO THE COMMAND 



RKBD DEC/X11 SYSTEM EXERCISER MODULE 
XRKBD0.P11 12-OCT-78 12:08 



007114' 001542 s 



007126' 

007130" 
007132* 
007134* 

007136' 

mm- 

007154' 

007160 s 




001556' 



0451 
05 4116 
051104 
046506 
0521C4 

mw 

05311 

04 __. 
g52104 

04 . _ 
0415 



007244' 
007260' 



mm 




007324' 
007330' 



007350' 




MACY11 306(105?) 12-0CT-78 

common support routines 
ertab: svcsi 

FMfSl 
141777 

SVCS2 
EMCS2 
O0C377 

SVDS 
EWPS 
173707 

SVFR 

EMER: . ASCI7 * T L F * 

• A SCI 7 'SKI* 
•ASCIZ *NXF' 
• ASCIZ *npp* 
. ASCIZ 'FMT' 
• ASCI7 *0TY ' 
•ASCIZ *ECH* 
.ASCIZ *RSE' 
.ASCIZ *HVP* 
• ASCIZ *C0E* 
.ASCIZ 'IDA' 

• ASCIZ 'VILF ' 

• ASCIZ *DTE * 
•ASCIZ *OPI* 
.ASCIZ *UNS* 
•ASCIZ 'DCK' 

EMDS: .ASCIZ 'ACL* 

. ASCIZ *DCL' 

•ASCIZ 'DOT' 

•ASCIZ *WRL* 

EMCS2: .ASCIZ *UFE* 

• ASCIZ *MDS' 

• ASCIZ *PGF * 
.ASCIZ 'NEW 
.ASCIZ 'NED* 

• ASCIZ *T'PE* 
•ASCIZ *WCE* 
.ASCIZ *OLT* 

EWCSl: .ASCIZ TDT' 

•ASCIZ *CTO* 

. ASCIZ *CFM* 

.ASCIZ 'SPA ' 

• ASCIZ TFP ' 

BLNKSl .ASCIZ * ' 
.F YEN 
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; POINTER TO ADDRESS OF REGISTER 

; ST ART OF ERROR MESSAGES FOR THIS REGISTER 

; BI T MASK 



; ILLEGE AL FUNCTION 
/SEEK INCOMPLETE 
;non-exectuable FUNCTION 
?DRIVE PARITY ERROR 
;F0RMAT 

JDRTVE TYPE ERROR 

?ERRQP CORRECTION HARD 

;RAD SECTOR ERROR 

/HE ADER VRC ERROR 

;CYLINDER OVERFLOW ERROR 

; INVALID DISK ADDRESS ERROR 

;WRITE LOCK 

;DRIVE TIMMING ERROR 

; OPERATION INCOMPLETE 

;DRIVE UNSAFE 

;DATA CHECK 

;DRIVE AC POWER LOW 

;DRTVE DC POWER LOW 

?DRIVE OFF TRACK 

?WRITE LOCK 

;UNIT FIELD ERROR 
^MULTIPLE DRIVE SELECT 
;PROGRAMHING ERROR 
;NON EXTSTANT MEMORY 
?NON EXTSTANT DRIVE 
•UNTBUS PARITY ERROR 
?WRITE CHECK ERROR 
JDATA LATE 

^CONTROLLER DRIVE TYPE 
^CONTROLLER TIMEOUT 
•CONTROLLER FORMAT 
; SERIAL PARITY ERROR 
^CONTROLLER ERROR 

;TWO BLANKS 
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449 




507456 
507464 
007472 

nm 

007510 

w 

007534 
" 0754" 
.0755. 

007564' 
007572* 

007612* 
007617* 

mik- 

007640* 




C67754- 
007762' 
007765 4 

mm- 

010006' 
010014 4 



mm 

042504 
040 

mu 

040505 

mm 

047111 

042514 
0461g3 

04? 

mm 

117 

mn 

040504 
041040 



044522 
052117 
554504 

m\ n 

0511 . 
000045 

mm 

022504 
047503 

m\u 

54504 



mm 

000 
52116 




53111 
47522 

051105 

~.um 

043516 
045503 



HARD : 
SOFT: 

drve: 
DRP^D: 
LOAD : 



.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
. ASCIZ 



PROT: .ASCIZ 

UN AVAL : .ASCIZ 

NOTRED: .ASCIZ 

gone : .asciz 

rtry: .asciz 

cntrnv: .asciz 

extra: .asciz 

calib: .asciz 



' HARD ERROR* 

* SOFT ERROR * 

* DRIVE * 

* DROPPED * 

* DRIVE DROPEED LOAD MEDIUM* " 

* WRITE PROT.%* 

* DRIVE UNAVAILABLE** 

* DRIVE NOT READY** 

* NO AVAILABLE DRIVES*' 

' RETRY EXCEEDED%* 

* CONTROLLER NOT RE ADY%* 

* EXTRANEOUS INTERRUPT** 

* UNABLE TO RECALIBRATE** 



UNCLP: .ASCIZ ' UNABLE TO CLEAR** 
DRVSRR: .ASCIZ ' DRIVE ERROR* * 

PORTHG : .ASCIZ 'OTHER PORT NOT UPDATING BLOCK ZERO** 
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XRKRDO.Pll 




SYSTEM EXERCISER MODULE 
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051105 022517 



mm 



000001 



046102 
051440 

mm 



MACYll 

COMMON 



SPINDi 



301(1052) 12-OCT-78 
SUPPORT ROUTINES 
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. A SC I Z "UNABLE TO START SPINDLE*' 



• EVEN 
.END 
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ACSR 

ADDP 

ADDP22= 

ASB 

AST AT 

AVFLAG 

AWAS 

BADSPT 

BEGIN 



11? 10 



06R 

II 

SioR 




CLRCOM 
CLRCTO 
CLR.DRV 
CLRRP 

^cnIrdv 

' CNTRNV 



303# 

ISM 

307" 
305 

Ws* 

330* 
266# 
560 
844 
1235 

fflt 

3271 

327| 

mt 

327ff 



327* 



wm 

007617R 



384| 
489 

m* 

illV 

m 

868 
327t 

3553 

ii 

323 
370? 

l fflt 

438# 
500 

m* 

1191 
1094 



818* 
588 



725 
455 

III 

1281 
38" 
39 



388 

m 

387 
389 

l m 

387 
390 
387 
439 
495 

ffl 

548 

616 

960f 

736* 
1446# 



1087* 
1337 

668 
552 

i\r 



463 
627 
894 
1284 
852 


477 


483 
659 
1075 


484 


3 

1090 


1091 


514 
800 
1166 


m 

1167 


m 

1168 


539 
832 
1169 


559 
841 
1234 


1108 


1112 


1118 


1160 














388 
389 

m 


389 
390 
389 


1134 
70 2 
1121 


1141 
















808 
439 

l m 


1232 
440 


646 


657 


801 


808 


819 


874 


1070 


1124 


1147 


390 


885 




















390 
715 

41 


III 

866 


834 
876 
1072 


1129 
1088 
















1304A 
415 


449* 


512 


547* 


714* 


718* 


719 


721 


723* 


727 


1304 


514 
1168 


538 
1169 


539 
1234 


559 
1235 


5 60 


659 


660 


1074 


1075 


1090 


1091 


747* 


754* 


761* 


768* 


787 














521 






















6*1* 
1092* 


1057* 


1076* 


1152* 


1170* 


1228* 


1236* 










1190 
1333* 


1219 


1243 


















654 
1220 


697 
1229 


820 
1294 


835 


1058 


1067 


1087# 


1106 


1119 


1154 


1159 
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817* 

525U 
781 
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951* 
948* 



1315* 



1319* 



5INT 



5= 10 



Df ICE 
D¥ID1 

isss? 

EHCS2 
EMDS 

IB"" 

ENDS = 
E Iff EST 

imi 
mv 



PA$= 
HF$ = 



HRDCNT 
HRDER$= 



Q06464R 
007404R 



000346R 
O00O14R 

mm 

007264R 

mm 

0O2O14R 

PP 
mm 

003732R 

003746R 

003754R 

104400 

0O7646R 

MRU 

J04415 

7550R 

mi* 



907» 



1264* 

675 



630 



632 
909 



630* 
1352* 
749 



472* 
741* 



832 



1271* 

682 



70 4 



846 
944 



842* 
756 



488* 
745* 



844 



1095 



892* 
763 



501 
752* 



8<»4 



707 




527 
759* 



1284 



823 
828* 



854 
829 



1274 1287 
973 1063 
1257 1271 



1178 
840* 



1103 
1292* 



1248 1252 1279* 
841 1078* 1080* 1082 



1117 1155 1188 1195 



1260 1298 



12«2* 
781* 



553* 
766* 



554 
775* 



796 



RRBD DEC/Xll 
XRKBO0.P11 



BUT 

IDHUM 
IMODX.= 



SYSTEM EXERCISER MOOOLE 
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IMlc 

iStsrv 

¥ 



)30P 
374P 
>vl 20 P 



HAP22$= 164416 

all 

NOLL 



mm 



34402 



OPEN = 



Of OAS = 

picm 

PROT 
PRTY = 
PRTY0 = 

I ! 

PRTY4 = 

m 

pin = 
E4MP 



s 01 



7526R 
0000 
1504P 
3236R 
0000 



10442 




327$ 



960* 
619* 



464 



642 



71 4« 

803 



327# 



327* 
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966* 1009 



784* 



454 
581 



142 8# 

955 
693 

ffl 

327* 
1197 
720 



14585 



501* 
755 



799* 



838 
627 



1274* 
706 
276 
308 



724 



806 



673 



1275* 
709 
277 
310 



728 



829 



m 



841 



891 



1082 1281 



ffl m i? 



m m m 



502* 
762 



518 
769 



529 
981 



531 



533 



547 554* 995 



1333 
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315« 493 

3175 456 

314« 455 

638 648 

517 526 
492 

ffi 1 

44U 1227 

505 535 

309 453* 
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RKCS2 
RKDA 



mm 



001406R 

0gi4"4R 
" 1416R 

ttisi 




783* 
603* 
593* 

HW* 

812 
1118* 

i nv 

1195* 
595* 
60 5* 
599* 
6C8* 
610* 

W 

591* 



in 

567# 
898 



652 



SfCSl 

SfCS2 



m 



446# 

ffit 



BSC* 
787* 



788* 



1005 
1064 

907* 



495 



1018 

8H 



747 


754 


761 


768 


975 












692 


7*5 


97C 


1061 


1208# 


1215 


1223 


1239 


1345 




745« 
12C8 




















1343tf 
825 


«60 


971 


1346 














855 


8*8 


















975* 




















6 30 
819* 

640* 


642* 
821 
1158* 


644 

836 
1190* 


652* 
R44 
1197* 


655 
988* 
1199* 


668* 
991 
1219* 


696* 
1059 
1221 


698 
1064* 
1227* 


798* 
1068 
1230 


801* 
1088 
1243* 


650* 


694* 


834* 


973* 


1063* 


1103* 


1117* 


1120 


1155* 


98C* 
976* 
657 


979* 
702 


1070 


1072 


1107 


1108 


1123 


1160 


1232 




987 
974* 




















1 1 v D 


1325* 
1158 


1329* 
1350 


1330* 














920 * 




















617 


715 


852 


870 


885 












1045 
818 
1356 


826 


879 


913 


1352 
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001554R 

. Altin 

001.556R 

sta 

6R 
OR 
72R 
74R 




XFLAG 
XMEM 



42R 
62R 



368« 



421* 
426* 
423* 

ml 

424# 



419# 

913 
911 

504* 

771* 
1424$ 
824 

H?f 

737 
736 

464 

tir* 

735* 
446* 

nil 

741ft 
734# 

m* 

776 

m 



1003 
915 

185S 

866 



894 
781* 

506* 

782* 

840 
1141* 



1308 
746* 



7661* 



748* 
494 



1360 



874 



917 



1364 



7«9 
525* 



79^ 
1297 



m 

753* 



755* 
522 



542* 



1451# 



753 
760* 



762* 
978 



760 
767* 



769* 
14061* 



767 
788 



791 



IBS. 



mm m 



ERRORS DETECTED: 
I DEFAULT GLOBALS GENERATED * 

r XRKBDC,XRKBD0/SOL/CRF:SYM=DDXCOM / XRKBD0 
RON-TIME : 2 3 .5 SECONDS 
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